home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_20_1987_Transactor_Publishing.d64 / copy prg 128 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  482b  |  15 lines
  1. 100 rem   program file copier 128  tim sweeney
  2. 110 poke 58,5    :rem reserve space in bank 1
  3. 120 clr
  4. 130 print"prg file copier"
  5. 140 print"insert master disk, press key": get(NULL) a$
  6. 150 input"file name";fl$: (NULL)
  7. 160 (NULL) (fl$),b1
  8. 170 sa=peek(172)+peek(173)*256 :rem  get starting address
  9. 180 ea=peek(174)+peek(175)*256 :rem  get ending address
  10. 190 print"insert target disk, press key": get(NULL) a$
  11. 200 (NULL): (NULL) (fl$),b1,p(sa) to p(ea)
  12. 210 print"copy completed. another? y";: input"[157][157][157]";a$
  13. 220 if a$="y" then 120
  14. 230 poke 58,255: clr   :rem  restore bank 1
  15.